QuickTime 1.0 for Developers/QuickTime 1.0 for Developers.iso/Goodies/DiVA VideoShop™/VideoShop Demo/VideoShop Demo/background_2645.xml

Extensible Markup Language | 1991-09-05 | 30KB | 305 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2645</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3651.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>579</left>
            <top>440</top>
            <right>605</right>
            <bottom>465</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8419</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next</name>
        <script>on mouseUpglobal qpModeGrab,qpModeKill,qpEffectif qpModeKill then exit mouseUpif not qpModeGrab thenput (line 3 of fld "time") into qpEffectlock screengo next cdend ifend mouseUpon mouseStillDownglobal qpModeGrabif qpModeGrab thenset the cursor to "Grabber"set the loc of me to the mouseLocend ifend mouseStillDown</script>
    </part>
    <part>
        <id>2</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>551</left>
            <top>440</top>
            <right>577</right>
            <bottom>465</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17779</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next</name>
        <script>on mouseUpglobal qpModeGrab,qpModeKill,qpEffectif qpModeKill then exit mouseUpif not qpModeGrab thenput (line 3 of fld "time") into qpEffectlock screengo prev cdend ifend mouseUpon mouseStillDownglobal qpModeGrabif qpModeGrab thenset the cursor to "Grabber"set the loc of me to the mouseLocend ifend mouseStillDown</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>65375</left>
            <top>455</top>
            <right>282</right>
            <bottom>469</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Helvetica</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>number</name>
        <script>on mouseDownglobal qpModeGrabif not qpModeGrab then exit mouseDownput the mouseLoc into currMouseput botRight of target into cornerif the style of me is "scrolling" thenput (item 1 of corner)-20 into item 1 of cornerend ifif item 1 of corner - item 1 of currMouse < 10 and ¬item 2 of corner - item 2 of currMouse < 10 then put true into growMiconelse put false into growMiconset the cursor to grabberrepeat until the mouse is upset the loc of me to the mouseLocend repeatend mouseDown</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>33</right>
            <bottom>31</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>miconList</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>1</top>
            <right>12</right>
            <bottom>16</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>field data</name>
        <script>on mouseDownglobal qpModeKill,qpModeGrabif qpModeKill thenput (long name of me)&","&(number of me) into line 4 of fld "field data"killFldend ifif not qpModeGrab then exit mouseDownput the mouseLoc into currMouseput botRight of target into cornerif the style of me is "scrolling" thenput (item 1 of corner)-20 into item 1 of cornerend ifif item 1 of corner - item 1 of currMouse < 10 and ¬item 2 of corner - item 2 of currMouse < 10 then put true into growMiconelse put false into growMiconif growMicon thenset the cursor to "drag"repeat until the mouse is upput the mouseLoc into mousePtif currMouse <> mousePt thenput item 1 of currMouse - item 1 of mousePt into currMouseHput item 2 of currMouse - item 2 of mousePt into currMouseVput rect of target into newPosput item 3 of newPos - currMouseH into item 3 of newPosput item 4 of newPos - currMouseV into item 4 of newPosput mousePt into currMouseset rect of target to newPosend ifend repeatelseset the cursor to grabberrepeat until the mouse is up  -- no Micon - drag the btn itsef aroundput the mouseLoc into mousePtif currMouse <> mousePt thenput item 1 of currMouse - item 1 of mousePt into currMouseHput item 2 of currMouse - item 2 of mousePt into currMouseVput rect of target into newPosput item 1 of newPos - currMouseH into item 1 of newPosput item 2 of newPos - currMouseV into item 2 of newPosput item 3 of newPos - currMouseH into item 3 of newPosput item 4 of newPos - currMouseV into item 4 of newPosput mousePt into currMouseset rect of target to newPosend ifend repeatend ifend mouseDownon openFieldput (long name of me) into line 4 of fld "field data"openField2end openField</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>5</left>
            <top>2</top>
            <right>17</right>
            <bottom>17</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>field data/2</name>
        <script>on mouseDownglobal qpModeFieldsif not qpModeFields then exit mouseDownput the mouseLoc into currMouseput botRight of target into cornerif the style of me is "scrolling" thenput (item 1 of corner)-20 into item 1 of cornerend ifif item 1 of corner - item 1 of currMouse < 10 and ¬item 2 of corner - item 2 of currMouse < 10 then put true into growMiconelse put false into growMiconif growMicon thenrepeat until the mouse is upput the mouseLoc into mousePtif currMouse <> mousePt thenput item 1 of currMouse - item 1 of mousePt into currMouseHput item 2 of currMouse - item 2 of mousePt into currMouseVput rect of target into newPosput item 3 of newPos - currMouseH into item 3 of newPosput item 4 of newPos - currMouseV into item 4 of newPosput mousePt into currMouseset rect of target to newPosend ifend repeatelseset the cursor to grabberrepeat until the mouse is upset the loc of me to the mouseLocend repeatend ifend mouseDown</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>100</right>
            <bottom>100</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>picture data</name>
        <script>on mouseDownglobal qpModeKill,qpModeGrabif qpModeKill thenput (short id of me) into line 4 of fld "field data"killPICTexit mouseDownend ifif not qpModeGrab thenhidePICTSshowPICTSexit mouseDownend ifput the mouseLoc into currMouseput botRight of target into cornerif the style of me is "scrolling" thenput (item 1 of corner)-20 into item 1 of cornerend ifif item 1 of corner - item 1 of currMouse < 10 and ¬item 2 of corner - item 2 of currMouse < 10 then put true into growMiconelse put false into growMiconif growMicon thenset the cursor to "drag"repeat until the mouse is upput the mouseLoc into mousePtif currMouse <> mousePt thenput item 1 of currMouse - item 1 of mousePt into currMouseHput item 2 of currMouse - item 2 of mousePt into currMouseVput rect of target into newPosput item 3 of newPos - currMouseH into item 3 of newPosput item 4 of newPos - currMouseV into item 4 of newPosput mousePt into currMouseset rect of target to newPosend ifend repeatelseset the cursor to grabberrepeat until the mouse is up  -- no Micon - drag the btn itsef aroundput the mouseLoc into mousePtif currMouse <> mousePt thenput item 1 of currMouse - item 1 of mousePt into currMouseHput item 2 of currMouse - item 2 of mousePt into currMouseVput rect of target into newPosput item 1 of newPos - currMouseH into item 1 of newPosput item 2 of newPos - currMouseV into item 2 of newPosput item 3 of newPos - currMouseH into item 3 of newPosput item 4 of newPos - currMouseV into item 4 of newPosput mousePt into currMouseset rect of target to newPosend ifend repeatend ifend mouseDown</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>12</right>
            <bottom>12</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>time</name>
        <script></script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>3</left>
            <top>6</top>
            <right>33</right>
            <bottom>18</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>field data/3</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>5</id>
        <text>rectangletruecard field id 2 of card id 8441 of stack "Macintosh HD:Gene's VideoShop:CD Release:READ ME"</text>
    </content>
    <name>presentation</name>
    <script>-- All scripts Copyright © 1991 Digital Video Applications Corp.,-- All Rights Reservedon domenu choiceglobal qpModeGrab,qpModeKillif choice="Activate VideoShop" thenif offset("Modes",windows()) ≠0 then close window "Modes"if offset("Styles",windows()) ≠0 then close window "Styles"if offset("Effects",windows()) ≠0 then close window "Effects"choose browse toolVideoShopControl VideoShopput "Activate Hypercard" into menuItem 1 of menu "Authoring"else if choice="Activate Hypercard" thenopenBackgroundelse if choice="Close Presentation" thenclose window (short name of this stack)else if choice="Template" thenif the editBkgnd is false thenset the editBkgnd to trueelseset the editBkgnd to falseend ifelse if choice="Set Slide Duration" thenask "Slide duration in seconds? (0=No time)" with line 1 of fld "time"if it is 0 then exit domenuput it into line 1 of fld "time"else if choice="Match Slide to Sound" thenask "Name of sound resource? ("&quote&"None"&quote&"=No sound)" with line 2 of fld "time"if it is "None" then put empty into line 2 of fld "Time"else if it is empty or it is 0 then exit domenuelseput it into line 2 of fld "Time"end ifelse if choice="New PICTure" thenask "Add which PICTure?"put it into tempif temp is empty then exit domenulock screendomenu "new button"choose browse toolset the name of button (number of buttons) to tempget the script of fld "Picture data"set the script of button (number of buttons) to itset the style of button (number of buttons) to rectangleset the textFont of button (number of buttons) to helveticaif fld "picture data" is empty thenput temp&","&(short id of button (number of buttons)) into fld "picture data"elseput return&temp&","&(short id of button (number of buttons)) after fld "Picture data"end ifput (item 2 of stripPath(temp)) into temp2picture temp2,resource,rect,falseput (item 2 of stripPath(temp)) into temp2set the rect of button (number of buttons) to rect of window temp2close window temp2unlock screenelse if choice="New Slide" thendomenu "New Card"else if choice="Delete Slide" thendomenu "Delete Card"else if choice="New Template T-Box" thennewObject2else if choice="New Text Box" thennewObjecthidePICTSif qpModeGrab is true then grabberModeelse if qpModeKill is true then killModeelse browseModeelse if choice="Lock Text Boxes" thenlockfields trueput "Unlock Text Boxes" into menuItem 8 of menu "Objects"else if choice="Unlock Text Boxes" thenlockFields falseput "Lock Text Boxes" into menuItem 8 of menu "Objects"else if choice="qp Tools" thenpalette "modes"else if choice="Box Styles" thenpalette "Styles"else if choice="Slide Effects" thenpalette "Effects"else if choice="All qp Palettes" thenpalette "modes"palette "Styles"palette "Effects"else if choice="Left Align" thenset the checkMark of menuItem 1 of menu "Style" to trueset the checkMark of menuItem 2 of menu "Style" to falseset the checkMark of menuItem 3 of menu "Style" to falseif word 1 of line 4 of fld "field data" is card thenset the textAlign of cd fld id (word 4 of item 1 of line 4 of fld "field data") to leftelseset the textAlign of fld id (word 4 of item 1 of line 4 of fld "field data") to leftend ifelse if choice="Center Align" thenset the checkMark of menuItem 1 of menu "Style" to falseset the checkMark of menuItem 2 of menu "Style" to trueset the checkMark of menuItem 3 of menu "Style" to falseif word 1 of line 4 of fld "field data" is card thenset the textAlign of cd fld id (word 4 of item 1 of line 4 of fld "field data") to centerelseset the textAlign of fld id (word 4 of item 1 of line 4 of fld "field data") to centerend ifelse if choice="Right Align" thenset the checkMark of menuItem 1 of menu "Style" to falseset the checkMark of menuItem 2 of menu "Style" to falseset the checkMark of menuItem 3 of menu "Style" to trueif word 1 of line 4 of fld "field data" is card thenset the textAlign of cd fld id (word 4 of item 1 of line 4 of fld "field data") to rightelseset the textAlign of fld id (word 4 of item 1 of line 4 of fld "field data") to rightend ifelse pass domenuend domenuon browseModeglobal qpModeGrab,qpModeKill,draggingMiconchoose browse toolset the enabled of menuItem 3 of menu "Objects" to trueset the enabled of menuItem 8 of menu "Edit" to falseset the editBkgnd to falseput empty into draggingMiconput false into qpModeGrabput false into qpModeKilllock screenput line 3 of fld "field data" into lockModerepeat with x=1 to number of cd fldsset the lockText of cd fld x to lockModeset the style of cd fld x to (line x of fld "field data/2")end repeatrepeat with x=1 to number of lines of fld "field data/3"set the lockText of fld id (word 4 of item 2 of line x of fld "field data/3") to lockModeset the style of fld id (word 4 of item 2 of line x of fld "field data/3") to (item 1 of line x of fld "field data/3")end repeatunlock screenend browseModeon grabbermodeglobal draggingMicon,qpModeGrab,qpModeKillchoose browse toolset the enabled of menuItem 3 of menu "Objects" to trueset the enabled of menuItem 8 of menu "Edit" to falseset the editBkgnd to falseput true into qpModeGrabput false into qpModeKillput "bypass" into item 2 of draggingMiconlock screenhidePICTSrepeat with x=1 to number of cd fldsset the lockText of cd fld x to trueif the style of cd fld x is transparent or the style of cd fld x is opaque thenset the style of cd fld x to rectangleend ifend repeatrepeat with x=1 to number of lines of fld "field data/3"set the lockText of fld id (word 4 of item 2 of line x of fld "field data/3") to trueif the style of fld id (word 4 of item 2 of line x of fld "field data/3") is transparent¬or the style of fld id (word 4 of item 2 of line x of fld "field data/3") is opaque thenset the style of fld id (word 4 of item 2 of line x of fld "field data/3") to rectangleend ifend repeatunlock screenend grabberModeon killModeglobal qpModeGrab,qpModeKill,draggingMiconchoose browse toolset the enabled of menuItem 3 of menu "Objects" to trueset the enabled of menuItem 8 of menu "Edit" to falseset the editBkgnd to falseput empty into draggingMiconput false into qpModeGrabput true into qpModeKillput "delete" into item 2 of draggingMiconlock screenhidePICTSrepeat with x=1 to number of cd fldsset the lockText of cd fld x to trueif the style of cd fld x is transparent or the style of cd fld x is opaque thenset the style of cd fld x to rectangleend ifend repeatrepeat with x=1 to number of lines of fld "field data/3"set the lockText of fld id (word 4 of item 2 of line x of fld "field data/3") to trueif the style of fld id (word 4 of item 2 of line x of fld "field data/3") is transparent¬or the style of fld id (word 4 of item 2 of line x of fld "field data/3") is opaque thenset the style of fld id (word 4 of item 2 of line x of fld "field data/3") to rectangleend ifend repeatunlock screenend killModeon newTool choicechoose choice toolhidePICTSset the enabled of menuItem 3 of menu "Objects" to falseset the enabled of menuItem 8 of menu "Edit" to trueend newToolon newObjectlock screendomenu "New Field"put (number of cd flds) into fldNumchoose browse toolget the script of field "field data"set the script of cd fld fldNum to itset the lockText of cd fld fldNum to trueset the style of cd fld fldNum to (line 1 of fld "field data")put (line 1 of fld "field data") into line fldNum of fld "field data/2"if the style of cd fld fldNum is opaque or style of cd fld fldNum is transparent thenset the style of cd fld fldNum to rectangleend ifunlock screenend newObjecton newObject2lock screenset the editbkgnd to truedomenu "New Field"set the editbkgnd to trueput (number of lines of fld "field data/3")+1 into lineNumput (number of flds) into fldNumset the editbkgnd to falsechoose browse toolget the script of field "field data"set the script of fld fldNum to itset the lockText of fld fldNum to trueset the style of fld fldNum to (line 1 of fld "field data")put (line 1 of fld "field data") into item 1 of line lineNum of fld "field data/3"put long name of fld fldNum into item 2 of line lineNum of fld "field data/3"if the style of fld fldNum is opaque or style of fld fldNum is transparent thenset the style of fld fldNum to rectangleend ifunlock screenend newObject2on styleChoice choiceput choice into line 1 of fld "Field data"end styleChoiceon lockFields statusset cursor to watchrepeat with x=1 to number of cd fldsset the lockText of cd fld x to statusend repeatrepeat with x=8 to number of fldsset the lockText of fld x to statusend repeatput status into line 3 of fld "field data"end lockFieldson openField2if word 1 of item 1 of line 4 of fld "field data" is "card" thenget the textAlign of cd fld id (word 4 of item 1 of line 4 of fld "field data")elseget the textAlign of fld id (word 4 of item 1 of line 4 of fld "field data")end ifdomenu (it&&"Align")end openField2on exitFieldset the checkMark of menuItem 1 of menu "Style" to falseset the checkMark of menuItem 2 of menu "Style" to falseset the checkMark of menuItem 3 of menu "Style" to falseend exitFieldon killFldlock screenchoose field toolif word 1 of item 1 of line 4 of fld "field data" is card thenselect cd fld id (word 4 of item 1 of line 4 of fld "field data")delete line (item 2 of line 4 of fld "field data") of fld "field data/2"elseselect fld id (word 4 of item 1 of line 4 of fld "field data")delete line ((item 2 of line 4 of fld "field data")-7) of fld "field data/3"end ifdomenu "Clear Field"choose browse toolunlock screenend killFldon showPICTSrepeat with count=1 to number of lines of fld "picture data"put item 2 of strippath(item 1 of (line count of fld "picture data")) into windowNameput item 2 of (line count of fld "picture data") into buttonIDpicture windowName,resource,rect,falseset the rect of window (item 2 of stripPath(windowName)) to rect of button id buttonIDshow window (item 2 of stripPath(windowName))end repeatend showPICTSon hidePICTSrepeat with count=1 to number of lines of fld "picture data"put (item 2 of stripPath(line count of fld "picture data")) into windowNameif offset(windowName,windows()) ≠0 then close window windowNameend repeatend hidePICTson killPICTput line 4 of fld "field data" into curIDlock screenchoose button toolselect button id curIDdomenu "clear button"choose browse toolrepeat with x=1 to number of lines of fld "picture data"if item 2 of line x of fld "picture data" is curID thendelete line x of fld "Picture data"exit repeatend ifend repeatend killPICTon cardEffect theEffectput theEffect into line 3 of fld "time"lock screenlock messagescloseCardgo next cdunlock screen with visual theEffectgo prev cdopenCardunlock messagesend cardEffecton MiconListIDput the id of bkgnd fld "MiconList" into item 1 of returnValueput the short name of this stack into item 2 of returnValuereturn returnValueend MiconListID-- initson openBackgroundglobal qpModeKill,qpModeGrab,gVideoShopActivelock screenset the userlevel to 5put false into qpModeKillput false into qpModeGrabif gVideoshopActive is true thenVideoShopControl Hypercardelseput short name of this stack into hellounlock screengo stack "VideoShop" in a new windowVideoShopControl HyperCardshow window hellolock screenend ifdelete menu "Tools"put "Activate VideoShop" into menuItem 1 of menu "Authoring"if menuItem 1 of menu "File" is "Close Presentation" then exit openBackGround-- setup "File"put "Close Presentation" into menu "File"set the cmdchar of menuitem 1 of menu "File" to "W"-- setup "Go"repeat with x=1 to 5delete menuItem 1 of menu "Go"end repeatdelete menuItem 5 of menu "Go"delete menuItem 5 of menu "Go"delete menuItem 5 of menu "Go"delete menuItem 5 of menu "Go"delete menuItem 5 of menu "Go"put "Left Align"&return&"Center Align"&return&"Right Align"&return&"--" before menu "style"delete menuItem 9 of menu "Style"delete menuItem 16 of menu "Style"delete menuItem 16 of menu "style"-- setup "Edit"delete menuItem 12 of menu "Edit"delete menuItem 12 of menu "Edit"delete menuItem 12 of menu "Edit"delete menuItem 12 of menu "Edit"put "--"&return&"Message"&return&"qp Tools"&return&"Box Styles" after menu "Edit"put "Slide Effects" after menu "Edit"put "All qp Palettes" after menu Editset the cmdChar of menuItem 17 of menu "Edit" to "A"set the cmdChar of menuItem 13 of menu "Edit" to "M"put "Template" into menuItem 8 of menu "Edit"set the cmdChar of menuItem 8 of menu "Edit" to "B"set the enabled of menuItem 8 of menu "Edit" to falsedelete menuItem 9 of menu "Edit"delete menuItem 9 of menu "Edit"delete menuItem 9 of menu "Edit"-- setup "Objects"put "--"&return&"New Text Box"&return&"New Template T-Box" into menu "Objects"if line 3 of fld "Field data" is true thenput "Unlock Text Boxes" after menuItem 3 of menu "Objects"elseput "Lock Text Boxes" after menuItem 3 of menu "Objects"end ifput "New Slide" before menu "Objects"put "Delete Slide" after menuItem 1 of menu "Objects"put "Set Slide Duration" after menuItem 2 of menu "Objects"put "Match Slide to Sound" after menuItem 3 of menu "Objects"put "--"&return&"New PICTure" after menu "Objects"set the cmdChar of menuItem 1 of menu "Objects" to "N"put "rectangle" into line 1 of fld "field data"-- check menubar statusif line 2 of fld "field data" is not empty thenshow menubarelsehide menubarend ifif line 3 of fld "field data" is empty then put true into line 3 of fld "Field data"unlock screenend openBackgroundon closeBackgroundglobal gVideoShopActiveif gVideoShopActive is true then VideoShopControl VideoShopbrowseModeif line 2 of fld "field data" is "on" thenput empty into line 2 of fld "field data"if offset("Modes",windows()) ≠0 then close window "Modes"if offset("Styles",windows()) ≠0 then close window "Styles"if offset("effects",windows()) ≠0 then close window "effects"end ifif the freesize of this stack > .2 * the size of this stack then domenu "compact stack"end closeBackgroundon openCardglobal gVideoShopActive,qpModeKill,qpModeGrab,qpEffectif ((line 1 of fld "time" is not empty) and (line 1 of fld "time" ≠ 0)) ¬or ((line 2 of fld "time" is not empty) and (line 2 of fld "time" ≠ 0)) thenshow bg button 1show bg button 2elseshow bg button 1show bg button 2end ifif qpModeKill then killmodeelse if qpModeGrab then grabberModeelse browseModeif qpEffect is not empty thenunlock screen with visual qpEffectelseunlock screenend ifput number of this card into fld "number"if gVideoShopActive is not empty and gVideoShopActive is true thenput the number of lines of bkgnd fld "MiconList" into lineNumput 1 into countrepeat lineNum timesget line count of bkgnd fld "MiconList"put item 7 of it into btnIDput rect of cd btn id btnID into posRectput item 1 of it into nameput item 2 of it into pathput addAMicon(name, path, posRect, short name of this stack) into refNumput refNum into item 8 of line count of bkgnd fld "MiconList"put count+1 into countend repeatend ifshowPICTSif not qpModeGrab and not qpModeKill thenif (line 2 of fld "time" is 0 or line 2 of fld "time" is empty) then-- time?if 1=1 thenpass openCardelseset the cursor to watchwait (line 1 of fld "time") secondsput (line 3 of fld "time") into theEffectlock screengo next cdend ifelseset the cursor to watchplay (line 2 of fld "time")wait until the sound is "done"put (line 3 of fld "time") into theEffectlock screengo next cdend ifend ifend openCardon closeCardglobal gVideoShopActiveif gVideoShopActive is not empty then if gVideoShopActive thenremoveAllMicons short name of this stackend ifhidePICTSpass closeCardend closeCard-- from DiVA VideoShopfunction StripPath longName-- Returns two items from the longName. The first is the-- path name and the second is the file name.put length of longName into strLengthput strLength into startPtrepeat until (startPt = 0) or (character startPt of longName = ":")put startPt-1 into startPtend repeat-- Pathput char 1 to startPt of longName into item 1 of retVal-- Nameput char startPt+1 to strLength of longName into item 2 of retValreturn retValend StripPath</script>
</background>